15 IFX=0THENIFPEEK(34592)=76THENX=3
17 IFX=0THENPOKE53280,6:POKE53281,6:PRINT"[147]COMMODORE 64 ART SHOW"
19 IFX=0THENX=1:PRINT"LOADING ..."
20 IFX=1THENX=2:LOAD"LOGO",8,1
22 IFX=2THENX=3:LOAD"DISSOLVE",8,1
25 IFX=3THENPOKE55,0:POKE56,31:CLR:X=4:
30 IFX=4THENX=5:POKE53280,0:POKE53281,0:GOTO50
40 IFX=5THEN130
50 PRINT"[147]            DISK EINLEGEN UND..."
51 PRINT"          ...TASTE DRUECKEN !"
52 GETA$:IFA$=""THEN52
53 PRINT"[147]":FORT=0TO50:NEXT:GOTO60
60 REM
61 GOTO1000
100 SYS34592
104 POKEVIC+21,0
105 FORT=0TO100:NEXT
110 SYS34592+3
120 GOTO2000
130 SYS34592+6
140 REM
150 IFE=1THEN9000
160 GOTO100
1000 SYS34592+9
1005 POKE2040,254
1010 POKE2041,255
1020 VIC=53248
1030 POKEVIC+39,6
1040 POKEVIC+40,2
1050 POKEVIC+29,0
1060 POKEVIC+28,0
1070 POKEVIC+23,0
1080 POKEVIC+16,0
1090 POKEVIC+1,136
1100 POKEVIC+3,136
1110 POKEVIC+0,128
1120 POKEVIC+2,128
1130 POKEVIC+21,3
1150 PRINT"[147] COMMODORE 64"
1160 PRINT"   ART SHOW"
1165 GOTO2000
1166 POKEVIC+21,0
2000 REM
2100 NN=N+65:F$=CHR$(NN)+"*"
2200 FI$=CHR$(129)+"PIC "+F$
2201 N=N+1:IFN>16THEN8000
2205 OPEN15,8,15:
2206 OPEN2,8,2,FI$+",P,R"
2207 INPUT#15,A:IFA<>0THENCLOSE2:CLOSE15:GOTO2000
2208 CLOSE15:CLOSE2
2210 LOADFI$,8,1
2211 IF ST<>0THEN2000
2220 END
8000 FORT=0TO9000:NEXT
9000 SYS34592+9
9100 CLR:N=0:X=5:GOTO50